home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pcresrc / pcr8807.arc / EXAMPLE.BAS next >
BASIC Source File  |  1988-01-13  |  647b  |  17 lines
  1. ' Load three display pages into video pages 1-3, then display each
  2. ' sequentially in page zero when a key is pressed. Press escape key to end.
  3.  
  4. SCREEN 0: WIDTH 80: CLS         '80-column text mode
  5. DEF SEG = &HB800                'point to CGA video segment
  6. BLOAD "page1.scr", &H1000       'load 3 screens into upper 3 video pages
  7. BLOAD "page2.scr", &H2000
  8. BLOAD "page3.scr", &H3000
  9.  
  10. WHILE press$ <> CHR$(27)        'loop until escape key pressed
  11.   r = (r MOD 3) + 1             '1,2,3,1,...
  12.   PCOPY r, 0                    'copy page r to page 0
  13.   press$ = ""
  14.   WHILE press$ = "": press$ = INKEY$: WEND   'wait for key press
  15. WEND
  16.  
  17.